home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d7 / ezdial10.arc / PCP.SLT < prev    next >
Text File  |  1988-07-07  |  329b  |  25 lines
  1. //
  2. //Script to log on to Telenet's local access number and load MENU script
  3. //
  4.  
  5. str T_ID[] = "D1";
  6. str cr[] = "^M";
  7.  
  8. main()
  9. {
  10.  alarm(1);
  11.  {
  12.  cputs(cr);
  13.  cputs("D");
  14.  cputs(cr);
  15.  }
  16.    cputs(T_ID);
  17.    cputs("^M");
  18.  if (not waitfor("@", 20))
  19.   {
  20.    prints("Log-on failed!");
  21.    return;
  22.   }
  23.  CALLD("MENU");
  24. }
  25.